home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / FPU.M < prev    next >
Encoding:
Text File  |  1990-10-18  |  2.7 KB  |  3 lines
  1. ⓪ MODULE FPU;⓪ (*$N+,L-,M-*)⓪ ⓪ (*⓪!* Austesten der SFP004-Befehle⓪!*)⓪ ⓪ FROM SYSTEM IMPORT ASSEMBLER;⓪ FROM SFP004 IMPORT FPUInit, FPUError;⓪ ⓪ CONST   fpstat  =  $fffa40;       (* Response word of MC68881 read *)⓪(fpstatlo=  $fffa41;⓪(fpctrl  =  $fffa42;       (* Control  word of MC68881 write *)⓪(fpcmd   =  $fffa4a;       (* Command  word of MC68881 write *)⓪(fpcond  =  $fffa4e;       (* Condition word of MC68881 write *)⓪(fpop    =  $fffa50;       (* Operand  long of MC68881 read/write *)⓪(fpregsel=  $fffa54;       (* register select long read *)⓪(A2stat  =  -1;            (* Response word of MC68881 read *)⓪(A2ctrl  =  1;             (* Control  word of MC68881 write *)⓪(A2cmd   =  9;             (* Command  word of MC68881 write *)⓪(A2cond  =  $D;            (* Condition word of MC68881 write *)⓪(A2op    =  $F;            (* Operand  long of MC68881 read/write *)⓪(A2regsel=  $13;           (* register select long read *)⓪ ⓪ PROCEDURE @FP7M;⓪"BEGIN⓪$ASSEMBLER⓪(MOVEA.W #$FA41,A2⓪(; FMOVEM.X <static list>,-(A7)⓪(MOVE.W  D0,A2cmd(A2)⓪(TST.B   (A2)⓪ DoDlE   CMPI.B  #$0C,(A2)⓪(BNE     error⓪(MOVE.L  (A7)+,D0        ; save return-address⓪(TST.W   A2regsel(A2)⓪(MOVEA.W #$FA50,A2⓪ again   SUBQ.L  #8,A7⓪(MOVE.L  (A2),-(A7)⓪(MOVE.L  (A2),4(A7)⓪(MOVE.L  (A2),8(A7)⓪(CMPI.B  #2,-$F(A2)⓪(BNE     again⓪(MOVE.L  D0,A2⓪(JMP     (A2)⓪ error   LINK    A5,#0⓪(JSR     FPUError⓪(UNLK    A5⓪$END⓪"END @FP7M;⓪ ⓪ PROCEDURE @FG7M;⓪"BEGIN⓪$ASSEMBLER⓪(MOVEA.W #$FA41,A2⓪(; FMOVEM.X (A7)+,<static list>⓪(MOVE.W  D0,A2cmd(A2)⓪(TST.B   (A2)⓪ DoDlE   CMPI.B  #$0C,(A2)⓪(BNE     error⓪(MOVE.L  (A7)+,D0        ; save return-address⓪(TST.W   A2regsel(A2)⓪(MOVEA.W #$FA50,A2⓪ again   MOVE.L  (A7)+,(A2)⓪(MOVE.L  (A7)+,(A2)⓪(MOVE.L  (A7)+,(A2)⓪(CMPI.B  #2,-$F(A2)⓪(BNE     again⓪(MOVE.L  D0,A2⓪(JMP     (A2)⓪ error   LINK    A5,#0⓪(JSR     FPUError⓪(UNLK    A5⓪$END⓪"END @FG7M;⓪ ⓪ BEGIN⓪"FPUInit;⓪"ASSEMBLER⓪(BREAK⓪(MOVE.W  #$E003,D0⓪(JSR     @FP7M⓪(MOVE.W  #$D0C0,D0⓪(JSR     @FG7M⓪(MOVE.W  #$E003,D0⓪(JSR     @FP7M⓪(MOVE.W  #$D0C0,D0⓪(JSR     @FG7M⓪"END⓪ END FPU.⓪ ə
  2. (* $FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$0000043C$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940$FFEE9940Ç$000007FCT.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$00000460$0000043C$FFEEEBBC$00000659$000007D5$000007C4$00000820$00000828$0000080C$000007FC$00000844$00000830$FFEEEBBC$000007FC$0000083B$FFEEEBBC¶Çé*)
  3.